home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #42 (1995-01)(PackMAN)(DE)[WB].zip / Purity #42 (1995-01)(PackMAN)(DE)[WB].adf / Includes3v1 / Includes3v1.lha / Rexx / ARexxStrings.i next >
Text File  |  1994-12-04  |  2KB  |  69 lines
  1. {
  2.     ARexxStrings.i for PCQ Pascal
  3.  
  4.     These are the string-related functions of the rexxsyslib.  Note
  5.     that some of the functions had to be renamed in order to avoid
  6.     conflicts with the StringLib routines.
  7. }
  8.  
  9. {$I "Include:Rexx/Storage.i"}
  10.  
  11. Function  RexxCmpString(ss1, ss2: NexxStrPtr): Integer;
  12.     External;
  13.  
  14. Function  CVa2i(buffer : String; VAR value : Integer) : Integer;
  15.     External;
  16.  
  17. Function  CVc2x(out, str : String; len, mode : Integer) : Integer;
  18.     External;
  19.  
  20. Function  CVi2a(buf: String; val, digits : Integer; VAR ptr: String): Integer;
  21.     External;
  22.  
  23. Function  CVi2arg(val, digs: Integer) : RexxArgPtr;
  24.     External;
  25.  
  26. Function  CVi2az(buf : String; val, digs : Integer; var ptr : String) : Integer;
  27.     External;
  28.  
  29. Function  CVx2c(out, val : String; len, mode : Integer) : Integer;
  30.     External;
  31.  
  32. Function  ErrorMsg(code: Integer; var ss: NexxStrPtr): Boolean;
  33.     External;
  34.  
  35. Function  IsSymbol(str : String; var Len : Integer): Integer;
  36.     External;
  37.  
  38. Function  LengthArgstring(arg : Address): Integer;
  39.     External;
  40.  
  41. Function  ListNames(list: ListPtr; seperator : Char): String;
  42.     External;
  43.  
  44. Procedure StcToken(str: String; var Quote : Char; var Len : Integer;
  45.             var scan, token : String);
  46.     External;
  47.  
  48. Function  StrcpyA(dest, src: String; len: Integer): Byte;
  49.     External;
  50.  
  51. Function  StrcpyN(dest, src: String; len: Integer): Byte;
  52.     External;
  53.  
  54. Function  StrcpyU(dest, src: String; len: Integer): Byte;
  55.     External;
  56.  
  57. Procedure StrflipN(str: String; length: Integer);
  58.     External;
  59.  
  60. Function  RexxStrlen(str: String): Integer;
  61.     External;
  62.  
  63. Function  StrcmpN(str1, str2: String; len: Integer): Integer;
  64.     External;
  65.  
  66. Function  RexxToUpper(ch : Char): Char;
  67.     External;
  68.  
  69.